

FOR EACH qad_wkfl EXCLUSIVE-LOCK WHERE qad_key1 = "HKQUERY":
    IF NOT CAN-FIND(FIRST _connect WHERE _connect-usr = INTEGER(qad_key2)) THEN DO:
        DISPLAY qad_key1 qad_key2 qad_charfld[1] qad_charfld[2].
    END.
END.
